home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / elk-2_0.lha / elk-2.0 / lib / xm / text.c < prev    next >
C/C++ Source or Header  |  1992-11-22  |  2KB  |  47 lines
  1. #include "../xt/xt.h"
  2. #include <Xm/Xm.h>
  3. #include <Xm/Text.h>
  4.  
  5. static Object S_Text_ValueChangedCallback (x) XtArgVal x; {
  6.    return Get_Any_CB ((XmAnyCallbackStruct *)x);
  7. }
  8.  
  9. init_text () {
  10.     XtResourceList r = 0;
  11.     r = (XtResourceList)XtMalloc (10 * sizeof (XtResource));
  12.     r[0].resource_name = "pendingDelete";
  13.     r[0].resource_class = "PendingDelete";
  14.     r[0].resource_type = "Boolean";
  15.     r[1].resource_name = "selectThreshold";
  16.     r[1].resource_class = "SelectThreshold";
  17.     r[1].resource_type = "Int";
  18.     r[2].resource_name = "blinkRate";
  19.     r[2].resource_class = "BlinkRate";
  20.     r[2].resource_type = "Int";
  21.     r[3].resource_name = "columns";
  22.     r[3].resource_class = "Columns";
  23.     r[3].resource_type = "Short";
  24.     r[4].resource_name = "cursorPositionVisible";
  25.     r[4].resource_class = "CursorPositionVisible";
  26.     r[4].resource_type = "Boolean";
  27.     r[5].resource_name = "fontList";
  28.     r[5].resource_class = "FontList";
  29.     r[5].resource_type = "FontList";
  30.     r[6].resource_name = "resizeHeight";
  31.     r[6].resource_class = "ResizeHeight";
  32.     r[6].resource_type = "Boolean";
  33.     r[7].resource_name = "resizeWidth";
  34.     r[7].resource_class = "ResizeWidth";
  35.     r[7].resource_type = "Boolean";
  36.     r[8].resource_name = "rows";
  37.     r[8].resource_class = "Rows";
  38.     r[8].resource_type = "Short";
  39.     r[9].resource_name = "wordWrap";
  40.     r[9].resource_class = "WordWrap";
  41.     r[9].resource_type = "Boolean";
  42.     Define_Class ("text", xmTextWidgetClass, r, 10);
  43.     Define_Callback ("text", "valueChangedCallback", 1);
  44.     Define_Callback ("text", "activateCallback", 1);
  45.     Define_Converter_To_Scheme ("text-valueChangedCallback", S_Text_ValueChangedCallback);
  46. }
  47.